(math-gammap1-raw): Add docstring.

diff --git a/lisp/calc/calc-funcs.el b/lisp/calc/calc-funcs.el
index 9af2322ba1ed15583bc79a8bcfe09c1ac146fbf7..78d0df34cdb78b2226d74565087a13b9194e2ded 100644 (file)
--- a/lisp/calc/calc-funcs.el
+++ b/lisp/calc/calc-funcs.el
@@ -147,7 +147,8 @@
   (or (math-numberp x) (math-reject-arg x 'numberp))
   (calcFunc-fact (math-add x -1)))
 
-(defun math-gammap1-raw (x &optional fprec nfprec)   ; compute gamma(1 + x)
+(defun math-gammap1-raw (x &optional fprec nfprec)
+  "Compute gamma(1+X) to the appropriate precision."
   (or fprec
       (setq fprec (math-float calc-internal-prec)
            nfprec (math-float (- calc-internal-prec))))